home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO15B.dsk / UTIL.1.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  43 lines
  1. 0  REM  UTIL.1
  2. 2  &  SPEED= 255,255,255
  3. 3 Z$ = "Select Locations": &   OR ,Z$
  4. 4  FOR I = 0 TO 7: &  TANI,PH$(I): NEXT 
  5. 7  HOME : VTAB 6
  6. 10  &  PRINT "         Select Location Prefixs"
  7. 11  &  PRINT "---------------------------------------",,
  8. 20 Z =  PEEK(855): &  PRINT "P)rograms  = ";Z;"-";PH$(Z)
  9. 30 Z =  PEEK(837): &  PRINT "U)tilities = ";Z;"-";PH$(Z)
  10. 40 Z =  PEEK(838): &  PRINT "E)-Mail    = ";Z;"-";PH$(Z)
  11. 50 Z =  PEEK(839): &  PRINT "F)ile user = ";Z;"-";PH$(Z)
  12. 60 Z =  PEEK(840): &  PRINT "T)elex's   = ";Z;"-";PH$(Z)
  13. 62 Z =  PEEK(841): &  PRINT "M)essage   = ";Z;"-";PH$(Z)
  14. 64 Z =  PEEK(856): &  PRINT "R)am Disk  = ";Z;"-";PH$(Z)
  15. 73  &  PRINT ,"S)ave changes  L)oad Parms    Q)uit"
  16. 75  VTAB 17: &  PRINT : CALL  -958
  17. 80  &  PRINT  SPC( 10);"Command? (Q=quit) ";
  18. 90  &  GET Z$: &  SGNZ$: &  INT"PUEFTMRSLQ",Z$,Z: IF Z = 0  THEN  &  PRINT  CHR$(7);: GOTO 90
  19. 100  PRINT Z$: ON Z GOTO 200,300,400,500,600,700,750,800,900,1000
  20. 200 P = 855:Z$ = "Programs": GOTO 8000
  21. 300 P = 837:Z$ = "Utilities": GOTO 8000
  22. 400 P = 838:Z$ = "E-Mail": GOTO 8000
  23. 500 P = 839:Z$ = "User file": GOTO 8000
  24. 600 P = 840:Z$ = "Telex": GOTO 8000
  25. 700 P = 841:Z$ = "Message": GOTO 8000
  26. 750 P = 856:Z$ = "Ram Disk": GOTO 8000
  27. 800 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BSAVE PAGE.3,A$300,L225":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  28. 900 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BLOAD PAGE.3":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  29. 1000 P =  PEEK(837): &  GOSUB 2000: PRINT  CHR$(4);"RUN SYS.UTIL"
  30. 2000  HOME : &  AT P,A: IF A = 0  THEN  &  RETURN 
  31. 2010  VTAB 10: &  PRINT 
  32. 2020  &  PRINT  SPC( 11);"Disk is not on-line."
  33. 2030 L =  LEN(PH$(P)):L = 40 -L:L = L/2: &  PRINT , SPC( L);PH$(P)
  34. 2040  &  PRINT , SPC( 10);"Please install it...";: &  GET Z$: GOTO 2000
  35. 6000  &  PRINT  RIGHT$("   " + STR$(Z),3);"  ";
  36. 6005  IF Z <32  THEN Z = Z +64: INVERSE 
  37. 6010  &  PRINT  CHR$(Z);: NORMAL : &  PRINT : RETURN 
  38. 7000  &  STR$2,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN  GOTO 7
  39. 7010  &  RETURN 
  40. 8000  VTAB 9: CALL  -958: FOR I = 0 TO 7: &  PRINT I;")";PH$(I): NEXT 
  41. 8010  &  PRINT ,"Enter new ";Z$;" prefix (0-7)? ";
  42. 8020  &  GET Z$: IF Z$ <"0"  OR Z$ >"7"  THEN 7
  43. 8030  POKE P, VAL(Z$): GOTO 7